home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64 / disk info (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  395 lines
  1. 10 rem disk info of vc 1541 with epson fx
  2. 20 rem by s. roettger
  3. 30 rem *** dim ***
  4. 40 dimt(664,1),d$(144),n$(144)
  5. 50 rem *** merories ***
  6. 60 fori=0to39:c$=c$+" ":next
  7. 70 fori=0to148:c1$=c1$+"-":next
  8. 80 fori=0to25:c2$=c2$+".":next
  9. 90 c3$="[221]                                      [221]"
  10. 100 fori=0to29:c4$=c4$+chr$(255):next
  11. 110 ba=53281:bo=53280:si=54272:g=1024
  12. 120 be$=chr$(7):d2$=chr$(18):d4$=chr$(20):es$=chr$(27):em$=es$+"e":ef$=es$+"f"
  13. 130 ht$=chr$(9):l0$=es$+"0":l2$=es$+"2":la$=es$+"r":l$=chr$(10):sf$=es$+"t"
  14. 140 si$=chr$(15):sk$=es$+"n":so$=chr$(14):ss$=es$+"s":un$=es$+"-":z$=chr$(0)
  15. 150 uf$=un$:un$=un$+chr$(1):uf$=uf$+z$:sf$=sf$+es$:sf$=sf$+"h":sl$=chr$(124)
  16. 160 s1$=chr$(192)+chr$(18)+chr$(1)+"----------------
  17. 170 [139][195](s1$)[179]30[167]s1$[178]s1$[170]z$:[137]170
  18. 180 [143] *** jmp start ***
  19. 190 at[178]0:[137]3500
  20. 200 [143] ***** subroutines *****
  21. 210 [143] *** get 1 ***
  22. 220 a$[178]"":[161]#1,a$:a[178][198](a$[170]z$):[139]st[178]0[167][142]
  23. 230 [139]2[175]st[178]2[167]220
  24. 240 [137]1210
  25. 250 [143] *** get 2 ***
  26. 260 a$[178]"":[161]#2,a$:a[178][198](a$[170]z$):[139]st[178]0[167][142]
  27. 270 [139]2[175]st[178]2[167]260
  28. 280 [137]1210
  29. 290 [143] *** get 3 ***
  30. 300 a$[178]"":[161]#3,a$:a[178][198](a$[170]z$):[139]st[178]0[167][142]
  31. 310 [139]2[175]st[178]2[167]300
  32. 320 [143] *** special error ***
  33. 330 [132]15,q,q$,o,p:[139]q[178]0[167][142]
  34. 340 [139]q[179]30[176]q[178]66[176]q[178]67[176]q[178]73[167]t[178]255:d$[178]"*brk*":p$[178]"b":[142]
  35. 350 a[178]q:a$[178]q$:i[178]o:j[178]p:[137]1220
  36. 360 [143] *** print line ***
  37. 370 lc[178]lc[170]1:[139]m[167]l[178](l[178]1)[170]1:[152]4,ht$l0$ss$[199](l)n$sf$:[139]l[167][152]4,l$
  38. 380 [139]m[167][142]
  39. 390 [152]4,ht$sf$n$l$:[142]
  40. 400 [143] *** blips on ***
  41. 410 [129]j[178]4[164]18[169]7:[151]si[170]j,17:[130]:[142]
  42. 420 [143] *** blips off ***
  43. 430 [129]j[178]4[164]18[169]7:[151]si[170]j,0:[130]:[142]
  44. 440 [143] *** dez. -> hex. ***
  45. 450 d[178][182](d):[139]d[177]255[167]d[178]255
  46. 460 [139]r1[178]0[167]h$[178][201](c$[170][196](d),3):[142]
  47. 470 h[178][181](d[173]16):g[178]d[171]16[172]h:h[178]h[170]48[170][180](h[171]9[170][182](h[171]9))[172]7:g[178]g[170]48[170][180](g[171]9[170][182](g[171]9))[172]7
  48. 480 g$[178][199](h)[170][199](g):h$[178]"$"[170]g$:[142]
  49. 490 [143] *** kill bit 7 ***
  50. 500 a$[178][199]([198](a$[170]z$)[175]127)
  51. 510 [139][198](a$)[179]32[176][198](a$)[178]127[167]a$[178]"."
  52. 520 [142]
  53. 530 [143] *** per cent ii ***
  54. 540 b[178][181](bf[173]16.8656[170].5):b$[178][196](b)
  55. 550 [139]b[179]100[167]b$[178][202]("00",[195](b$)[171]1)[170][202](b$,2)
  56. 560 n$[178]n$[170][202](c$[170]b$,[195](c$[170]b$)[171]4,3):n$[178]n$[170]".":n$[178]n$[170][201](b$,2):[142]
  57. 570 [143] *** format k byte ***
  58. 580 i[178][181](b[172]2.481[170].5):i$[178][196](i):[139]i[179]10[167]i$[178]"0"[170][202](i$,2)
  59. 590 n$[178]n$[170][202](c$[170]i$,[195](c$[170]i$)[171]4,4):n$[178]n$[170]".":n$[178]n$[170][201](i$,1)
  60. 600 n$[178]n$[170]"k":[142]
  61. 610 [143] *** sound ***
  62. 620 [140]:[139]f[167][129]i[178]0[164]24:[135]a:[130]
  63. 630 f[178](f[178]0):[129]i[178]0[164]24:[135]a:[151]si[170]i,a:[130]:[142]
  64. 640 [143] *** question ***
  65. 650 r[178]1:q1$[178]"yescmdcmdcmdwait"
  66. 660 [151]214,l:[153]"on"c$"on"q$" ";
  67. 670 [153]q1$;:[141]410
  68. 680 [151]198,0:[146]198,1:[161]a$:a[178][198](a$[170]z$):[141]430
  69. 690 [139]a[178]13[176]a[178]160[167][151]211,0:[153]c$:[141]430:[142]
  70. 700 [139]a[178]89[176]a[178]74[176]a[178]50[167]q1$[178]"yescmdcmdcmdwait":r[178]1:[137]670
  71. 710 [139]a[178]78[176]a[178]95[167]q1$[178]"nowait cmdcmdcmd":r[178]0:[137]670
  72. 720 [139]a$[178]"q"[167][151]211,0:[153]c$:r[178]0:[141]430:[137]1270
  73. 730 [137]680
  74. 740 [143] *** information ***
  75. 750 le[178]le[172]100:j2[178]1:i[178]1:[151]bo,c:[151]198,0:[153]:[151]214,l
  76. 760 m$[178]m$[170][201](c$,41[171][195](m$))
  77. 770 [141]410:i[178](i[178]1)[170]1:[153]"on"[202](m$,i[170]1)"wait";
  78. 780 [129]j1[178]0[164]le[169]j2:[130]:[161]a$:[141]430:[139]a$[178]""[167][151]si[170]24,vo:j2[178]10:[137]770
  79. 790 [153]"on"c$;:[151]si[170]24,15:[142]
  80. 800 [143] *** print header ***
  81. 810 [152]4,es$"q"[199](96)es$"d"[199](i)[199](50)z$ht$ht$so$un$em$l2$;
  82. 820 [159]2,8,2,"#":[141]1010:[160]2
  83. 830 [152]4,n$uf$ef$:n$[178]"":[141]370:[141]370:l[178]0:lc[178]3
  84. 840 [152]15,"uj"
  85. 850 [132]15,a,a$,i,i:[139]a[171]73[167]850
  86. 860 n$[178]"dn  format  aufz.-dichte          dos          block number    disk-id"
  87. 870 [141]370:n$[178]"08   "[170]f$:n$[178]n$[170]"   256 bytes/sec.  ":n$[178]n$[170]a$
  88. 880 n$[178]n$[170]"  683 (664 free)   ":n$[178]n$[170]d$:[141]370:n$[178]"":[141]370:[141]370:[142]
  89. 890 [143] *** normal header ***
  90. 900 n$[178]"":[141]220:[139]a[171]34[167]900
  91. 910 [141]220:[139]a[171]34[167][141]500:n$[178]n$[170]a$:[137]910
  92. 920 [141]220:[139]a[178]32[167]920
  93. 930 [141]500:d$[178]a$:[141]220:[141]500:d$[178]d$[170]a$:[142]
  94. 940 [143] *** prg type ***
  95. 950 d$[178]" ":[139]fa[175]64[167]d$[178]"<"
  96. 960 ad[178]197[170](fa[175]15):[129]i[178]ad[164]ad[171]10[169][171]5
  97. 970 [152]15,"m-r"[199](i)[199](254):[161]#15,a$:d$[178]a$[170]d$:[130]
  98. 980 [139]fa[175]128[167]d$[178]" "[170]d$:[142]
  99. 990 d$[178]"*"[170]d$:[142]
  100. 1000 [143] *** improved header ***
  101. 1010 d$[178]"":f$[178]"xxxx":k$[178]"":n$[178]"":[152]15,"b-p:2,0"
  102. 1020 [152]15,"u1:2,0,18,0":[141]1210:[141]260:t1[178]a:[141]260:s1[178]a
  103. 1030 [152]15,"b-p:2,2":[141]260:[139]a[178]65[167]f$[178]"4040"
  104. 1040 [152]15,"b-p:2,144"
  105. 1050 [129]i[178]0[164]15:[141]260:[141]500:n$[178]n$[170]a$:[130]
  106. 1060 [141]260:[139]a[178]32[176]a[178]160[167]1060
  107. 1070 [129]i[178]0[164]4:[141]500:d$[178]d$[170]a$:[141]260:[130]
  108. 1080 [141]260:[141]260:[129]i[178]0[164]83:[141]260:k$[178]k$[170]a$:[130]:[142]
  109. 1090 [143] *** name.type.blocks ***
  110. 1100 n$[178]"":[141]220:[139]a$[177]""[167]1100
  111. 1110 [161]#1,a$,a$,a$,b$:b[178]256[172][198](b$[170]z$)[170][198](a$[170]z$):b$[178][196](b)
  112. 1120 [141]220:[139]a[178]32[167]1120
  113. 1130 [139]a[178]66[167][142]
  114. 1140 [141]220:[139]a[171]34[167][141]500:n$[178]n$[170]a$:[137]1140
  115. 1150 [141]220:[139]a[178]32[167]1150
  116. 1160 d$[178]" ":[139]a[178]42[167]d$[178]a$:[141]220
  117. 1170 [129]i[178]0[164]2:d$[178]d$[170]a$:[141]220:[130]
  118. 1180 [139]a[178]60[167]d$[178]d$[170]a$:[142]
  119. 1190 d$[178]d$[170]" ":[142]
  120. 1200 [143] *** disk status ***
  121. 1210 [132]15,a,a$,i,j:[139]a[178]0[167][142]
  122. 1220 m$[178][196](a)[170]"  ":m$[178]m$[170]a$:m$[178]m$[170][196](i):m$[178]m$[170][196](j):l[178]10:c[178]2:le[178]20:vo[178]15
  123. 1230 [143] *** error message ***
  124. 1240 [151]214,l[171]1:[153]"on"c$""c$;:m$[178]""[170]m$:[141]620:[141]750:[141]620
  125. 1250 [151]214,l[171]1:[153]"onstop"c$""c$"sys";:[151]bo,0
  126. 1260 [143] *** directory end ***
  127. 1270 [160]1:[160]2:[160]3:[160]4:[160]15
  128. 1280 q$[178]"another directory ?":l[178]10:[141]650:[139]r[167][142]
  129. 1290 [151]ba,15:[151]bo,15:[153]"pokeload";:[128]
  130. 1300 [143] *** print end ***
  131. 1310 [141]370:[152]4,be$,l0$;:[160]1
  132. 1320 l[178]10:q$[178]"want to make a line feed ?":q1$[178]" nowait cmdcmdcmd":r[178]0
  133. 1330 [141]660:[139]r[167][152]4,l$:[137]1330
  134. 1340 [152]4,es$"@":[137]1270
  135. 1350 [143] *** dir screen ***
  136. 1360 ii[178]0:[139]n[177]20[167]ii[178]n[171]20
  137. 1370 [153]"":[129]i1[178]ii[164]n:[153][163]20)[202](n$(i1),4,16):[130]:[142]
  138. 1380 [143] *** screen ***
  139. 1390 [153]"sys"[166]13)"disk info v1.0"
  140. 1400 [153]"     c 64 & vc 1541 & epson fx 80
  141. 1410 print"       (w) 1985   by s. roettger
  142. 1420 [142]
  143. 1430 [143] *** f-tast menue ***
  144. 1440 [139]at[167]1510
  145. 1450 c[178]0:l[178]10:le[178]8:vo[178]3:m$[178]"       please enter your choise":[141]750
  146. 1460 at[178][198](a$)[171]132:[139]at[178][171]38[167]3500
  147. 1470 [139]at[179]1[176]at[177]8[167]1450
  148. 1480 [139]at[177]4[167]m[178]1:at[178]at[171]4
  149. 1490 a[178]1516[170]at[172]80:[129]i[178]0[164]26:j[178][194](a[170]i):[151]a[170]i,j[176](128[172]((j[178]32)[170]1)):[130]
  150. 1500 [139]m[167][129]i[178]0[164]6:[151]1916[170]i,[194](1916[170]i)[176]128:[130]
  151. 1510 l[178]10:q$[178]"choice ok ?":[141]650:[139]r[178]0[167][142]
  152. 1520 [159]15,8,15,"i":[141]1210
  153. 1530 i[178][171](at[178]1):[159]4,4,1:[152]4,es$" "[199](i);:[160]4
  154. 1540 [159]4,4,0:[152]4,la$[199](0)es$"c"[199](70)sk$[199](3);[199](27)"(NULL)":[142]
  155. 1550 [143] ***** short *****
  156. 1560 m$[178]"  enter position left - right [1-4] :":i1[178]4:[141]1640
  157. 1570 [152]4,es$"q"[199](96)si$es$"d"[199](e[172]35[171]12)z$ht$d2$l0$un$em$;
  158. 1580 m$[178]"":q$[178]si$:i1[178]2:[137]1660
  159. 1590 [143] ***** normal *****
  160. 1600 m$[178]"  enter position left - right [1-2] :":i1[178]2:[141]1640
  161. 1610 [152]4,es$"q"[199](96)es$"d"[199](e[172]40[171]24)z$ht$l0$un$em$so$;
  162. 1620 m$[178]d4$:q$[178]"":i1[178]4:[137]1660
  163. 1630 [143] *** short & normal directory ***
  164. 1640 c[178]0:l[178]10:le[178]9:vo[178]3:[141]750:e[178][197](a$):[139]e[179]1[176]e[177]i1[167]1640
  165. 1650 [142]
  166. 1660 [159]1,8,0,"$":[141]900:[152]4,n$uf$m$" "d$ef$:[139]e[171]4[167][152]4,l$
  167. 1670 l[178]1:n$[178]"":[141]370
  168. 1680 [141]1100:[139]a[178]66[167]1710
  169. 1690 n$[178][200](n$[170]c$,17)[170][200](d$,i1):n$[178]n$[170][201](d$,1)
  170. 1700 n$[178]n$[170][201](c$[170]b$,4):[141]580:[152]4,q$;:[141]370:[137]1680
  171. 1710 n$[178]"":[141]370:n$[178][200](b$[170]" blocks free       ",20)[170][196]([181](100.5[171]b[173]6.64))
  172. 1720 n$[178]n$[170]"% used":[137]1310
  173. 1730 [143] ***** extended directory *****
  174. 1740 i[178]22:[141]810
  175. 1750 n$[178]" file - name        block     bytes      per cent     type":[141]370
  176. 1760 n$[178][200](c1$,61):[141]370
  177. 1770 k[178]0:[159]1,8,0,"$":[141]900
  178. 1780 [141]1100:[139]a[178]66[167]i[178]61:sk[178]k:[137]2330
  179. 1790 k[178]k[170]1:i[178]21:[139]m[178]0[167]n$[178]em$[170]n$:n$[178]n$[170]ef$:i[178]25
  180. 1800 n$[178][200](n$[170]c2$,i):n$[178]n$[170][201](c$[170]b$,3):n$[178]n$[170][200](c2$,5)
  181. 1810 n$[178]n$[170][201](c$[170][196]([181](b[172]254[170].5)),6):n$[178]n$[170][200](c2$,7):bf[178]254[172]b:[141]540
  182. 1820 n$[178]n$[170][200](c2$,6):n$[178]n$[170]d$:[141]370:[137]1780
  183. 1830 [143] ***** improved directory *****
  184. 1840 au[178]0:[139]a1[178]2[175]at[178]3[167]au[178]1
  185. 1850 i[178]12:[141]810
  186. 1860 n$[178]" file - name       str-ssc   s.adr- e.adr  block   bytes   per cent"
  187. 1870 n$[178]n$[170]"  type   etr-esc":[141]370:n$[178][200](c1$,83):[141]370
  188. 1880 l[178]10:q$[178]"hexadezimal output ?":[141]650:r1[178]r
  189. 1890 l[178]10:q$[178]"pprint with deleted files ?":q1$[178]"nowait cmdcmdcmd":r[178]0:[141]660:r2[178]r[171]1
  190. 1900 [159]2,8,2,"#":k[178]0:bs[178]0:bc[178]0:i1[178]8:[141]1010
  191. 1910 e$[178]" ..- ..":ad$[178]" .....- .....":b[178]0:bf[178]0
  192. 1920 [139]i1[179]8[167]1950
  193. 1930 [139]t1[178]0[167]i[178]83:[137]2310
  194. 1940 i1[178]0:[152]15,"u1:2,0,"t1;s1:[152]15,"b-p:2,0":[141]260:t1[178]a:[141]260:s1[178]a
  195. 1950 [152]15,"b-p:2,"2[170]i1[172]32:[141]260:fa[178]a:[139]fa[167]k[178]k[170]1
  196. 1960 [141]260:t[178]a:[139]t1[178]0[175]fa[178]0[175]t[178]0[167]i[178]83:[137]2310
  197. 1970 [139]fa[178]0[175]r2[167]i1[178]i1[170]1:[137]1910
  198. 1980 [141]950:d[178]t:[141]450:s$[178]h$:[141]260:s[178]a:d[178]a:[141]450
  199. 1990 s$[178]s$[170]"-":s$[178]s$[170]h$:n$[178]""
  200. 2000 [129]i[178]0[164]15:[141]260:[141]500:n$[178]n$[170]a$:[130]
  201. 2010 [152]15,"b-p:2,"30[170]i1[172]32:[141]260:ap[178]a:[141]260:ap[178]ap[170]a[172]256:[139]fa[167]bc[178]bc[170]ap
  202. 2020 [139]au[167]l[178]10:q$[178][200](n$[170]c$,18)[170]d$:q1$[178]"nowait cmdcmdcmd":r[178]0:[141]660:r3[178]r
  203. 2030 [139]au[175]r3[178]0[167]i1[178]i1[170]1:[137]1910
  204. 2040 p$[178][202](d$,2,1):[139]p$[178]"r"[176]p$[178]"u"[176]d$[178]" del<"[167]2180
  205. 2050 t(0,0)[178]t:t(0,1)[178]s:[159]3,8,3,"#":[141]1210:i[178]0
  206. 2060 [152]15,"u1:3,0,"t;s:[141]330:[139]t[178]255[167]t[178]0:[137]2100
  207. 2070 [152]15,"b-p:3,0":i[178]i[170]1:v[178]t:[141]300:t[178]a:u[178]s:[141]300:s[178]a
  208. 2080 [139]i[178]1[167][141]300:j[178]a:[141]300:w[178]a
  209. 2090 t(i,0)[178]t:t(i,1)[178]s:[139]t[167]2060
  210. 2100 [160]3:bb[178]i:d[178]v:[141]450:e$[178]h$[170]"-":d[178]u:[141]450:e$[178]e$[170]h$:[139]p$[178]"p"[167]s[178]s[171]3
  211. 2110 [139]i[179]ap[167]d$[178]" brk*":p$[178]"b"
  212. 2120 bf[178](i[171]1)[172]254[170]s:b[178]i:[139]p$[178]"s"[176]p$[178]"u"[167]2180
  213. 2130 d[178]w:[141]450:w$[178]h$:d[178]j:[141]450:j$[178]g$
  214. 2140 b[178]bf[170]256[172]w[170]j:u[178][181](b[173]256):v[178]b[171]256[172]u:bf$[178][196](bf):b[178]i
  215. 2150 d[178]u:[141]450:u$[178]h$:d[178]v:[141]450:v$[178]g$
  216. 2160 [139]r1[167]ad$[178]" "[170]w$:ad$[178]ad$[170]j$:ad$[178]ad$[170]"- ":ad$[178]ad$[170]u$:ad$[178]ad$[170]v$:[137]2180
  217. 2170 ad$[178][201](c$[170][196](w[172]256[170]j),6)[170]"-":ad$[178]ad$[170][201](c$[170][196](u[172]256[170]v),6)
  218. 2180 bs[178]bs[170]b:i[178]19:[139]m[178]0[167]n$[178]em$[170]n$:n$[178]n$[170]ef$:i[178]23
  219. 2190 n$[178][200](n$[170]c$,i):n$[178]n$[170]s$:n$[178]n$[170]"  ":n$[178]n$[170]ad$:n$[178]n$[170]"   "
  220. 2200 n$[178]n$[170][201](c$[170][196](b),3):n$[178]n$[170]"   ":n$[178]n$[170][201](c$[170][196](bf),6)
  221. 2210 n$[178]n$[170]"    ":[141]540:n$[178]n$[170]"   ":n$[178]n$[170]d$:n$[178]n$[170]"  ":n$[178]n$[170]e$
  222. 2220 [141]370:[139]r3[178]0[167]i1[178]i1[170]1:[137]1910
  223. 2230 n$[178]"":[141]370:n$[178]"    "[170]sl$[170]"  ":[129]j[178]1[164]10:d[178]j:[141]450
  224. 2240 n$[178]n$[170][200](h$[170]c$,8):[130]
  225. 2250 n$[178][200](n$,84):[141]370:n$[178]"----+"[170][200](c1$,79):[129]j[178]0[164]bb[170]1:d[178]j:[141]450
  226. 2260 [139]j[173]10[178][181](j[173]10)[167]n$[178][200](n$,84):[141]370:n$[178][201](c$[170]h$,4)[170]sl$
  227. 2270 d[178]t(j,0):[141]450:n$[178]n$[170]h$:n$[178]n$[170]"-"
  228. 2280 d[178]t(j,1):[141]450:n$[178]n$[170]h$:n$[178]n$[170]" ":[130]:n$[178][200](n$,[195](n$)[171]8)[170]d$
  229. 2290 [141]370:n$[178][200](c1$,84):[141]370:n$[178]"":[141]370:i1[178]i1[170]1:[137]1910
  230. 2300 [143]***finish extended & improved***
  231. 2310 [152]15,"m-r"[199](250)[199](2):[161]#15,a$:b[178][198](a$[170]z$)
  232. 2320 [152]15,"m-r"[199](252)[199](2):[161]#15,a$:b[178]b[170][198](a$[170]z$)[172]256
  233. 2330 [139]m[178]0[167]l[178]10:q$[178]"use complete form ?":[141]650
  234. 2340 [139]m[178]0[175]r[167][129]j[178]lc[164]61:[152]4,l$;:[130]
  235. 2350 n$[178][200](c1$,i):[141]370
  236. 2360 n$[178]"blocks free ( bam ) . . . . . : "[170][201](c$[170][196](b),3):n$[178]n$[170]" => "
  237. 2370 n$[178]n$[170][201](c$[170][196]([181](b[173]6.64[170].5)),3)
  238. 2380 n$[178]n$[170]" per cent free.":[141]370:[139]at[178]3[176]au[167]2430
  239. 2390 n$[178]"blocks shown in directory . . : "[170][201](c$[170][196](bc),3):n$[178]n$[170]" => "
  240. 2400 n$[178]n$[170][201](c$[170][196]([181](bc[173]6.64[170].5)),3):n$[178]n$[170]" per cent used.":[141]370
  241. 2410 n$[178]"blocks used by prg, seq & usr : "[170][201](c$[170][196](bs),3):n$[178]n$[170]" => "
  242. 2420 n$[178]n$[170][201](c$[170][196]([181](bs[173]6.64[170].5)),3):n$[178]n$[170]" per cent used.":[141]370
  243. 2430 n$[178]"entries . . . . . . . . . . . : "[170][201](c$[170][196](k),3):n$[178]n$[170]" => "
  244. 2440 n$[178]n$[170][201](c$[170][196](144[171]k),3):n$[178]n$[170]" entries free .":[141]370
  245. 2450 n$[178]k$:[137]1310
  246. 2460 i[178]20:[141]810
  247. 2470 n$[178]"":[141]370
  248. 2480 l[178]10:q$[178]"hexadezimal output ?":[141]650:r1[178]r
  249. 2490 [151]214,9:[153]"on"c$"on enterwait track  :  ( '+' & '-' )   and    ";
  250. 2500 [153]"       sector :  ( shift '+' & '-' )    ":t[178]18:s[178]0
  251. 2510 [151]214,12:[153]"on       track :";:d[178]t:[141]450:[153]h$"     sector :";
  252. 2520 d[178]s:[141]450:[153]h$
  253. 2530 [151]198,0:[146]198,1:[161]a$:a[178]44[171][198](a$[170]z$)
  254. 2540 [139][182](a)[178]1[167]t[178]t[170]a:t[178]t[171](t[178]0):t[178]t[170](t[178]36)
  255. 2550 s1[178]21:[139]t[177]17[167]s1[178]19:[139]t[177]24[167]s1[178]18:[139]t[177]30[167]s1[178]17
  256. 2560 a[178]a[170]176:[139][182](a)[178]1[167]s[178]s[170]a
  257. 2570 s[178]s[171](s[178][171]1):[139]s[177]s1[167]s[178]s1
  258. 2580 [139]a[171]207[167]2510
  259. 2590 [159]3,8,3,"#":[141]1210
  260. 2600 [152]15,"u1:3,0,"t;s:[141]330
  261. 2610 n$[178]"track :":d[178]t:[141]450:n$[178]n$[170]h$[170]"     sector :"
  262. 2620 d[178]s:[141]450:[152]4,l0$ht$ht$em$un$n$h$uf$ef$l$l$
  263. 2630 n$[178]":     "[170]sl$[170]" ":[129]i[178]0[164]7:d[178]i:[141]450:n$[178]n$[170]h$[170]"  ":[130]
  264. 2640 n$[178]n$[170]"   ":[129]i[178]0[164]7:n$[178]n$[170][202]([196](i),2):[130]:[141]370
  265. 2650 n$[178]"------+"[170][200](c1$,52)
  266. 2660 sl$[178]" "[170]sl$[170]" ":[129]i[178]0[164]255:d[178]i:[141]450
  267. 2670 [139]i[173]8[178][181](i[173]8)[167]n$[178]n$[170]"   "[170]n1$:[141]370:n$[178]": "[170]h$[170]sl$:n1$[178]""
  268. 2680 [141]300:d[178]a:[141]450:n$[178]n$[170]h$[170]"  "
  269. 2690 o[178]0:[139]a[177]127[167]o[178]1:a[178]a[175]127
  270. 2700 [139]a[179]32[176]a[178]127[167]a[178]46
  271. 2710 [139]m[178]0[175]o[167]n1$[178]n1$[170]ss$[170][199](0)[170][199](a)[170]sf$:[137]2730
  272. 2720 n1$[178]n1$[170][199](a)
  273. 2730 [130]:n$[178]n$[170]"   "[170]n1$:[141]370:n$[178]"":n1$[178]"":sl$[178][199](124)
  274. 2740 [152]4,l$l$:[160]3
  275. 2750 [151]214,8:[153]"on"c$c$c$c$:l[178]10:q$[178]"want to print next sector ?":[141]650
  276. 2760 [139]r[167]2480
  277. 2770 [151]214,9:[153]"on"c$c$c$c$:[137]1310
  278. 2780 [152]4,si$es$"q"[199](159)d2$es$"d"[199](20)[199](50)z$ht$ht$so$un$em$l2$;
  279. 2790 [141]820:l[178]10:q$[178]"hexadezimal output ?":[141]650:r1[178]r:ht$[178]z$
  280. 2800 n$[178][200](c$,5)[170]"sector: ":[129]i[178]0[164]20:d[178]i:[141]450:n$[178]n$[170]h$[170]"    ":[130]
  281. 2810 n$[178][200](n$,159):[152]4,l0$si$;:[141]370
  282. 2820 n$[178][200](c$,5)[170]"------+"[170][200](c1$,147):[159]3,8,3,"#":[141]1210
  283. 2830 [129]i[178]1[164]35:s1[178]20:[139]i[177]17[167]s1[178]18:[139]i[177]24[167]s1[178]17:[139]i[177]30[167]s1[178]16
  284. 2840 n$[178][200](n$,159):[152]4,si$;:[141]370:d[178]i:[141]450
  285. 2850 n$[178][200](c$,5)[170]"tr:"[170]h$[170]sl$
  286. 2860 [129]j[178]0[164]s1:[152]15,"u1:3,0,"i;j:[152]15,"b-p:3,0":[141]300:d[178]a:[141]450
  287. 2870 h1$[178]h$:[141]300:d[178]a:[141]450:h1$[178]h1$[170]"-"[170][202](h$,2)[170]" "
  288. 2880 [139]h1$[178]"$4b-01 "[176]h1$[178]" 75- 1 "[167]h1$[178]"------ ":[137]2900
  289. 2890 [139][200](h1$,3)[178]"$00"[176][200](h1$,3)[178]"  0"[167]h1$[178]"  *"[170]h$[170]" "
  290. 2900 n$[178]n$[170]h1$:[130]:[130]:[141]370
  291. 2910 n$[178]"":[141]370:[152]4,d2$;:ht$[178][199](9):[141]370:[141]370:[137]1310
  292. 2920 [143] *** udd ***
  293. 2930 n[178]0:n$(n)[178]"":e[178]0:d$(e)[178]"":g[178]1024
  294. 2940 [151]214,10:[153]"on        wait for disk access...         "
  295. 2950 [159]3,8,3,"#":[141]1210:[152]15,"u1:3,0,18,0":[141]1210
  296. 2960 [161]#3,t$,u$
  297. 2970 i[178][198](t$[170]z$):j[178][198](u$[170]z$):[139]i[171]18[167]f1[178]1
  298. 2980 [152]15,"u1:3,0"i;j:[141]1210:[161]#3,t$,u$
  299. 2990 [129]i[178]0[164]7:b$[178]"":[129]j[178]1[164]30:[161]#3,a$:[139]a$[178]""[167]a$[178]z$
  300. 3000 b$[178]b$[170]a$:[130]:[139][198](b$)[177]0[175][202](b$,4,16)[179][177][202](s1$,4,16)[167]d$(e)[178]b$:e[178]e[170]1
  301. 3010 [161]#3,a$,a$:[130]:[139]t$[177]""[167]2970
  302. 3020 [160]3:e[178]e[171]1:[139]e[178][177]0[167]3050
  303. 3030 [141]620:l[178]10:le[178]8:v0[178]5:c[178]0:m$[178]" * * * no directory * * *":[141]750
  304. 3040 [141]620:[137]3460
  305. 3050 [139]f1[167]le[178]8:l[178]10:vo[178]3:m$[178]" * 'validate' should  be performed *":[141]750
  306. 3060 [153]"loadclr  * * *  userdesigned directory  * * *  hit @ for ascii sortsys
  307. 3070 b=a+19:ifb>ethenb=e
  308. 3080 fori=atob:printtab(1)mid$(d$(i),4,16):next:q=0:gosub3470
  309. 3090 pokeg+80+y*40,62:fori=55374to55395:pokei+y*40,1:next:ifqthen3060
  310. 3100 poke198,0:wait198,1:geta$:b=asc(a$):ifb-64then3150
  311. 3110 print"[147] ascii-sort [146] - wait...
  312. 3120 [129]i[178]0[164]e:b$[178]c4$:[129]j[178]0[164]e
  313. 3130 [139][202](d$(j),4,16)[179]b$[167]b$[178][202](d$(j),4,16):q[178]j
  314. 3140 [130]:n$(n)[178]d$(q):n[178]n[170]1:d$(q)[178]c4$:[130]:n[178]n[171]1:[137]3300
  315. 3150 [151]g[170]80[170]y[172]40,32:[129]i[178]55374[164]55395:[151]i[170]y[172]40,7:[130]
  316. 3160 [139]b[178]145[175]y[177]0[167]y[178]y[171]1:[137]3090
  317. 3170 [139]b[178]145[175]a[177]0[167]a[178]a[171]20:y[178]19:[137]3060
  318. 3180 [139]b[178]135[167]3240
  319. 3190 [139]b[178]136[167]3280
  320. 3200 [139]a[170]y[178]e[167]3090
  321. 3210 [139]b[178]17[175]y[179]19[167]y[178]y[170]1:[137]3230
  322. 3220 [139]b[178]17[167]a[178]a[170]20:y[178]0:[137]3060
  323. 3230 [137]3090
  324. 3240 n$(n)[178]d$(a[170]y):[139]e[178]0[167]3300
  325. 3250 [139]a[170]y[179]e[167][129]i[178]a[170]y[164]e[171]1:d$(i)[178]d$(i[170]1):[130]
  326. 3260 n[178]n[170]1:e[178]e[171]1:[139]a[170]y[177]e[167]b[178]145:q[178]1:[141]3470:[137]3150
  327. 3270 [137]3060
  328. 3280 [139]n[170]e[177]141[167][141]430:[141]410:[141]3470:[137]3090
  329. 3290 n$(n)[178]s1$:n[178]n[170]1:[141]3470:[137]3090
  330. 3300 [153]"loadsys- new directory :
  331. 3310 fori=0ton:printmid$(n$(i),4,16):fort=1to250:next:next
  332. 3320 print"":l=23:q$="- directory o.k. ?":gosub650:ifr=0then3460
  333. 3330 print"[147]file seperators shouldnot be scratched !"
  334. 3340 e=0:print"         wait for disk access...        "
  335. 3350 print#15,"i":gosub1210:open3,8,3,"#":gosub1210
  336. 3360 print#15,"u2:3,0,18,0":gosub1210
  337. 3370 fori1=0to18:print#15,"b-f:0,18"i1:gosub1210:next:print#15,"b-a:0,18,0":s=1
  338. 3380 print#15,"b-a:0,18"s:print#15,"b-p:3,0":fori1=0to7
  339. 3390 print#3,z$z$n$(e);:ife=nthen3440
  340. 3400 e=e+1:next
  341. 3410 t=s+3:ift>18thent=t-17
  342. 3420 print#15,"b-p:3,0":print#3,chr$(18)chr$(t);
  343. 3430 print#15,"u2:3,0,18"s:gosub1210:s=t:goto3380
  344. 3440 ifi1<7thenforj=1to(7-i1)*32:print#3,z$;:next
  345. 3450 print#15,"b-p:3,0":print#3,z$chr$(255);:print#15,"u2:3,0,18"s:gosub1210
  346. 3460 close3:print#15,"i":gosub3750:goto1270
  347. 3470 ii=0:ifn>20thenii=n-20
  348. 3480 print"":fori1=iiton-1:printtab(20);mid$(n$(i1),4,16):next:return
  349. 3490 rem ***** main menue *****
  350. 3500 f=0:pokebo,0:pokeba,0:poke650,128:gosub620
  351. 3510 printchr$(142)"[147][156]"c$"   * * * *  d i s k   i n f o  * * * *  "c$:gosub1390
  352. 3520 poke214,13:print:print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"c3$c3$;
  353. 3530 print"[221]  'f5'   = directories                [221]"c3$c3$;
  354. 3540 print"[221]  'f7'   = spezial[160]disk[160]data          [221]"c3$c3$;
  355. 3550 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  356. 3560 c=0:l=10:le=8:vo=3:m$="       please enter your choice...":gosub750
  357. 3570 a1=asc(a$)-134:ifa1=-40then1290
  358. 3580 ifa1<1ora1>2then3560
  359. 3590 a=1596+a1*120:fori=0to26:j=peek(a+i):pokea+i,jor(128*((j=32)+1)):next
  360. 3600 l=10:q$="choice ok ?":gosub650:ifr=0thena1=0:goto3520
  361. 3610 at=0:ona1goto3630,3750
  362. 3620 rem ***** directories *****
  363. 3630 print"[147][156]     * * * printed directory * * *      ":gosub1390
  364. 3640 poke214,12:print:print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  365. 3650 print"[221]  'f1'   = short[160]directory            [221]"c3$;
  366. 3660 print"[221]  'f3'   = normal[160]directory           [221]"c3$;
  367. 3670 print"[221]  'f5'   = extended[160]directory         [221]"c3$;
  368. 3680 print"[221]  'f7'   = improved[160]directory         [221]"c3$;
  369. 3690 print"[221]'shift+' = micro[160]+                    [221]";
  370. 3700 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  371. 3710 gosub1440:ifr=0thenat=0:m=0:goto3640
  372. 3720 onatgosub1560,1600,1740,1840
  373. 3730 goto3710
  374. 3740 rem ***** disk data *****
  375. 3750 print"[147][156]  * * * *  spezial disk data  * * * *   ":gosub1390
  376. 3760 poke214,12:print:print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  377. 3770 print"[221]  'f1'   = list[160]connection[160]pointers   [221]"c3$;
  378. 3780 print"[221]  'f3'   = print[160]sector               [221]"c3$;
  379. 3790 print"[221]  'f5'   = sectors[160]used[160]by[160]program    [221]"c3$;
  380. 3800 print"[221]  'f7'   = userdesigned[160]directory     [221]"c3$;
  381. 3810 print"[221]'shift+' = micro[160]+                    [221]";
  382. 3820 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  383. 3830 ifat=4thenfori=0to21:poke1836+i,peek(1836+i)or128:next:return
  384. 3840 gosub1440:ifr=0thenat=0:m=0:goto3760
  385. 3850 onatgosub2780,2460,1840,3870
  386. 3860 goto3840
  387. 3870 poke214,12:print:print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"c3$c3$;
  388. 3880 print"[221]  'f5'   = take file to list          [221]"c3$c3$c3$;
  389. 3890 print"[221]  'f7'   = separate files             [221]"c3$c3$;
  390. 3900 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":goto2930
  391. 3910 rem *** sound data ***
  392. 3920 data187,34,,,16,10,,207,34,,,16,10,,227,34,,,16,10,,,,,15
  393. 3930 data160,8,,,16,12,,180,8,,,16,8,,200,8,,,16,12,,,,,15
  394. 0 
  395.